SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE Procedure [dbo].[SP_TDCHEQ_BANC_U01]
/*-------------------------------------------------------*/
/*---Empresa              : OFISIS S.A.                --*/
/*---Cliente              : OFISIS                       --*/
/*---Sistema              : Tesoreria                  --*/
/*---Modulo               : Empresa                    --*/
/*---Programa             : Grabacion Detalle          --*/
/*---                       Distrib Bancos (ingresos)  --*/
/*---Script               : tdbanc_p.sql               --*/
/*---Nombre SP            : SP_TDCHEQ_BANC_U01         --*/
/*---Desarrollado por     : Denis Villacres P.         --*/
/*---Fecha Creaci÷n       : 13/06/2001                 --*/
/*---Base Datos           : Microsoft Sql Server       --*/
/*---Versi÷n              : 7.0                        --*/
/*---Invoca a SP          :                            --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Modificado 1 por     :       		       --*/
/*---Fecha Modificaci÷n   :                            --*/ 
/*---Detalle Modificaci÷n : 			       --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*---Comentarios                                       --*/
/*---                                                  --*/
/*---                                                  --*/
/*-------------------------------------------------------*/

/*-------------------------------------------------------*/
/*--- Drop Proc SP_TDCHEQ_BANC_U01                     --*/
/*--- Grant all on SP_TDCHEQ_BANC_U01 to public        --*/ 
/*--- SP_TDCHEQ_BANC_U01                               --*/
/*-------------------------------------------------------*/
 @ISCO_EMPR 		TD_VC_002, 
 @ISCO_USUA_MODI 	TD_VC_008_USUA,
 @ISCO_BANC 		TD_VC_003, 
 @ISNU_CNTA_BANC 	TD_VC_020,
 @ISAA_BNCO 		TD_VC_004, 
 @ISMM_BNCO 		TD_VC_002, 
 @ISTI_MOVI_BANC 	TD_VC_001,  
 @ISNU_COMP_BANC 	TD_VC_008, 
 @INNU_SECU 		TD_IN_001,
 @ISTI_ENTI 		TD_VC_001,
 @ISCO_ENTI 		TD_VC_020,
 @ISCO_BANC_CHEQ	TD_VC_003, 
 @ISNU_CHEQ		    TD_VC_020, 
 @ISCO_MONE	 	    TD_VC_003,
 @INIM_CHEQ 		TD_NU_016_004,
 @INIM_CONV 		TD_NU_016_004,
 @IDFE_DISP 		TD_DT_001,
 @IDFE_DIFE 		TD_DT_001,
 @ISCO_UNID_CNTB    TD_VC_003
	As
Declare 
   @VNIM_MOVI_ANTE  TD_NU_016_004,
   @VNIM_TOTA_CHEQ  TD_NU_016_004

 Begin Tran SP_TDCHEQ_BANC_I01

	Update 	TDCHEQ_BANC
	Set	TI_ENTI = @ISTI_ENTI,
		CO_ENTI = @ISCO_ENTI,
		CO_BANC_CHEQ = @ISCO_BANC_CHEQ,
		NU_CHEQ = @ISNU_CHEQ,
		CO_MONE = @ISCO_MONE,
		IM_CHEQ = @INIM_CHEQ,
		IM_CONV = @INIM_CONV,
		FE_DISP = @IDFE_DISP,
		FE_DIFE = @IDFE_DIFE,
		CO_USUA_MODI = @ISCO_USUA_MODI,
		FE_USUA_MODI =  Getdate()
   	Where  	CO_EMPR = @ISCO_EMPR
            And CO_UNID_CONC = @ISCO_UNID_CNTB
     		And CO_BANC = @ISCO_BANC
     		And NU_CNTA_BANC = @ISNU_CNTA_BANC
     		And AA_BNCO = @ISAA_BNCO
     		And MM_BNCO = @ISMM_BNCO
     		And TI_MOVI_BANC = @ISTI_MOVI_BANC
     		And NU_COMP_BANC = @ISNU_COMP_BANC
     		And NU_SECU = @INNU_SECU


	If @@error <> 0
           Begin
             Rollback tran
	     Return
           End    

     	Select 	@VNIM_MOVI_ANTE  = Isnull(IM_MOVI,0) 
     	FROM   	TCMOVI_BANC
     	WHERE  	CO_EMPR = @ISCO_EMPR 
        And CO_UNID_CONC = @ISCO_UNID_CNTB
     	And CO_BANC = @ISCO_BANC 
     	And NU_CNTA_BANC = @ISNU_CNTA_BANC  
     	And AA_BNCO = @ISAA_BNCO
     	And MM_BNCO = @ISMM_BNCO 
     	And TI_MOVI_BANC = @ISTI_MOVI_BANC
     	And NU_COMP_BANC = @ISNU_COMP_BANC 


     /* Sumo todos los Cheques */

     	Select 	@VNIM_TOTA_CHEQ = IsNull(Sum(Isnull(IM_CONV,0)),0)
     	From   	TDCHEQ_BANC
	    Where	CO_EMPR = @ISCO_EMPR
        And CO_UNID_CONC = @ISCO_UNID_CNTB
	    And CO_BANC = @ISCO_BANC
     	And NU_CNTA_BANC = @ISNU_CNTA_BANC
      	And AA_BNCO = @ISAA_BNCO
     	And MM_BNCO = @ISMM_BNCO
     	And TI_MOVI_BANC = @ISTI_MOVI_BANC
     	And NU_COMP_BANC = @ISNU_COMP_BANC


     	Update 	TCMOVI_BANC
     	Set IM_MOVI = Round(@VNIM_TOTA_CHEQ,2),
         	CO_USUA_MODI = @ISCO_USUA_MODI, 
		    FE_USUA_MODI = getdate()         
     	Where 	CO_EMPR = @ISCO_EMPR 
        And CO_UNID_CONC = @ISCO_UNID_CNTB
     	And CO_BANC = @ISCO_BANC 
     	And NU_CNTA_BANC = @ISNU_CNTA_BANC 
     	And AA_BNCO = @ISAA_BNCO
     	And MM_BNCO = @ISMM_BNCO 
     	And TI_MOVI_BANC = @ISTI_MOVI_BANC 
     	And NU_COMP_BANC = @ISNU_COMP_BANC 

     If @@error <> 0
        Begin
          Rollback tran
	    Return
        End  


commit tran

/*------------------------ Fin ------------------------------*/


GO
